home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_309_zInterface < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.7 KB  |  68 lines
  1. { %filename% -- interface file for %AppName% }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    We recommend that you not modify this module and instead modify        }
  5. {    its subclass, %Appname%Intf  The 'z' prefix on this module marks%    %}
  6. {    a module which is likely to be regenerated by AppMaker after you    }
  7. {    make changes to the user interface.  The modules without the 'z'    }
  8. {    prefix will not be regenerated by AppMaker unless you delete them.    }
  9. {    Using a separate subclass to override the AppMaker-generated code    }
  10. {    lets you regenerate code without losing your hand-coded changes.    } 
  11.  
  12. Unit z%AppName%Intf;
  13. Interface
  14.  
  15. Uses
  16.     TCL,
  17.     AMCL;
  18.     
  19. %for each dialog gen zinterface%
  20. %for each window gen zinterface%
  21. type
  22.     Z%Appname%Doc = object (CDocument) 
  23.  
  24.         itsData:        C%appname%Data;
  25.  
  26.         Procedure I%Appname%Doc    (aSupervisor:    CApplication;
  27.                                  printable:        Boolean);
  28.         Procedure Free;    override;
  29.  
  30.         Procedure NewFile;    override;
  31.         Procedure OpenFile        (macSFReply:    SFReply);    override;
  32.         Procedure BuildWindows;
  33.     
  34.         Function  DoSave: Boolean;    override;
  35.         Function  DoSaveAs        (macSFReply:    SFReply): Boolean;    override;
  36.         Procedure DoRevert;    override;
  37.  
  38.         %if fileExists appname+Doc.p%
  39.             Procedure UpdateMenus;    override;
  40.             Procedure DoCommand        (theCommand:    longint);    override;
  41.     
  42.         %endif%
  43.     end; {Z%Appname%Doc}
  44.  
  45. type
  46.     Z%Appname%App = object (CApplication)
  47.     
  48.         %for each dialog gen instanceModeless%
  49.     
  50.         Procedure I%Appname%App;
  51.         Procedure MakeDesktop;    override;
  52.         Procedure SetUpMenus;    override;
  53.         
  54.         Procedure CreateDocument;    override;
  55.         Procedure OpenDocument    (macSFReply:    SFReply);    override;
  56.  
  57.         %if fileExists appname+App.p%
  58.             Procedure UpdateMenus;    override;
  59.         %endif%
  60.         Procedure DoCommand        (theCommand:    longint);    override;
  61.     
  62.     end; {Z%Appname%App}
  63.  
  64. {----------}
  65. Implementation
  66.  
  67. End. {z%AppName%Intf}
  68.